// File: pdp8progs/test_mult_18_by_36.pal  -*- mode:asm; -*-
// Compute 18*36.
// url=http://bitsavers.org/pdf/dec/pdp8/handbooks/DEC-08-XINPA-A-D_intrPgm_75.pdf
//	page=3-6 CODING A PROGRAM

	*200
START,	CLA CLL		/ Initialize
	TAD A		/ Set up a Tally
	CIA		/ equal to -A to
	DCA TALLY	/ count the additions of B
MULT,	TAD B		/ Add B
	ISZ TALLY	/ Skip if Tally is 0
	JMP MULT	/ Add another B if not done
	HLT		/ Stop after A times
	/ Result is in AC

A,	0022		/ Equal to 0d18
B,	0044		/ Equal to 0d36
TALLY,	0000		/ Holds the tally
	$
